10 EIN=49241 :REM  GRAFIK EIN
20 AUS=49252 :REM  GRAFIK AUS
30 NEU=49152 :REM  LOESCHEN + FARBE
40 GSV=49271 :REM  SAVE
50 GLD=49333 :REM  LOAD
60 ROT=50316 :REM  ROTATIONSKOERPER
70 XY =50672 :REM  X.Y-GRAFIK
80 :
100 POKE53280,6:POKE53281,5:SYSNEU,5
110 DEFFNR(EGAL)=SIN(X)*COS(Y)
120 PRINT"[147][144]+++++++  F(X,Y)-NETZGRAFIK-DEMO  +++++++":UU=(null)/180
130 U=18:INPUT"DREHWINKEL (-45 BIS 90) .. ";U:IFU<-45ORU>90THEN130
140 LX=190:LY=190:MY=99:MX=159:SN=SIN(UU*U):CS=COS(UU*U)
150 V=45:INPUT"AUFSICHTSWINKEL (0 BIS 90) ";V:IFV>90ORV<0THEN150
160 SM=SIN(V*UU)
165 XX%=MX-LX/SQR(2)*SIN((45-U)*UU)+.5:YY%=MY+LY/SQR(2)*COS((45-U)*UU)*SM+.5
170 NN%=20:INPUT"ANZAHL DER X-LINIEN ...... ";NN%:IFNN%<3ORNN%>60THEN170
175 KK%=20:INPUT"ANZAHL DER Y-LINIEN ...... ";KK%:IFKK%<3ORNN%>60THEN175
180 AA%=LY*CS/KK%+.5:BB%=-LX*SN/NN%+.5:CC%=LX*CS/NN%*SM+.5
190 EE%=-LY*SN/KK%*SM+.5:DD=COS(V*UU)*30
220 X=-6.3:U=3.2:INPUT"GRENZEN (X0,X1) .......... ";X,U
225 YY=-3.2:V=6.3:INPUT"GRENZEN (Y0,Y1) .......... ";YY,V
230 FF=(U-X)/NN%:LL=(V-YY)/KK%
380 SYSXY
390 PRINT"[147]":WAIT198,1:POKE198,0:SYSAUS